home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / winmgr-mode.elc.z / winmgr-mode.elc
Emacs Compiled Lisp  |  1998-05-21  |  2.6 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
100% file Emacs/XEmacs v20 byte-compiled Lisp data default
99% file data default
100% TrID Emacs/XEmacs byte-compiled Lisp (generic) default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 31 3a 35 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:59 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 77 69 6e 6d 67 72 | 2d 6d 6f 64 65 2e 65 6c |s/winmgr|-mode.el|
|000000b0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000c0| 6f 6e 20 32 30 2e 34 20 | 22 45 6d 65 72 61 6c 64 |on 20.4 |"Emerald|
|000000d0| 22 20 58 45 6d 61 63 73 | 20 20 4c 75 63 69 64 2e |" XEmacs| Lucid.|
|000000e0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000f0| 72 73 69 6f 6e 20 32 2e | 32 35 20 58 45 6d 61 63 |rsion 2.|25 XEmac|
|00000100| 73 3b 20 32 32 2d 4d 61 | 72 2d 39 36 2e 0a 3b 3b |s; 22-Ma|r-96..;;|
|00000110| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000120| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000130| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000140| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000150| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 39 2e |ist in E|macs 19.|
|00000160| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000170| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000180| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000190| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|000001a0| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|000001b0| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..| (st|
|000001c0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001d0| 2d 76 65 72 73 69 6f 6e | 20 22 32 30 22 29 29 29 |-version| "20")))|
|000001e0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 77 69 |. (er|ror "`wi|
|000001f0| 6e 6d 67 72 2d 6d 6f 64 | 65 2e 65 6c 27 20 77 61 |nmgr-mod|e.el' wa|
|00000200| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|00000210| 6d 61 63 73 20 32 30 22 | 29 29 0a 0a 28 6f 72 20 |macs 20"|))..(or |
|00000220| 28 62 6f 75 6e 64 70 20 | 27 63 75 72 72 65 6e 74 |(boundp |'current|
|00000230| 2d 6c 6f 61 64 2d 6c 69 | 73 74 29 20 28 73 65 74 |-load-li|st) (set|
|00000240| 71 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |q curren|t-load-l|
|00000250| 69 73 74 20 6e 69 6c 29 | 29 0a 0a 0a 28 63 75 73 |ist nil)|)...(cus|
|00000260| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 67 72 6f 75 |tom-decl|are-grou|
|00000270| 70 20 27 77 69 6e 6d 67 | 72 20 6e 69 6c 20 22 47 |p 'winmg|r nil "G|
|00000280| 65 6e 65 72 69 63 20 77 | 69 6e 64 6f 77 20 6d 61 |eneric w|indow ma|
|00000290| 6e 61 67 65 72 20 6d 6f | 64 65 2e 22 20 3a 74 61 |nager mo|de." :ta|
|000002a0| 67 20 22 57 69 6e 64 6f | 77 20 4d 61 6e 61 67 65 |g "Windo|w Manage|
|000002b0| 72 73 22 20 3a 67 72 6f | 75 70 20 27 6c 61 6e 67 |rs" :gro|up 'lang|
|000002c0| 75 61 67 65 73 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |uages).(|custom-d|
|000002d0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|000002e0| 27 77 69 6e 6d 67 72 2d | 62 61 73 69 63 2d 6f 66 |'winmgr-|basic-of|
|000002f0| 66 73 65 74 20 27 34 20 | 22 2a 4e 75 6d 62 65 72 |fset '4 |"*Number|
|00000300| 20 6f 66 20 73 70 61 63 | 65 73 20 70 65 72 20 69 | of spac|es per i|
|00000310| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6c 65 76 65 6c |ndentati|on level|
|00000320| 2e 22 20 3a 74 79 70 65 | 20 27 69 6e 74 65 67 65 |." :type| 'intege|
|00000330| 72 20 3a 67 72 6f 75 70 | 20 27 77 69 6e 6d 67 72 |r :group| 'winmgr|
|00000340| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00000350| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 77 69 6e 6d |e-variab|le 'winm|
|00000360| 67 72 2d 6d 6f 64 65 2d | 68 6f 6f 6b 20 27 6e 69 |gr-mode-|hook 'ni|
|00000370| 6c 20 22 48 6f 6f 6b 20 | 74 6f 20 62 65 20 72 75 |l "Hook |to be ru|
|00000380| 6e 20 77 68 65 6e 20 60 | 77 69 6e 6d 67 72 2d 6d |n when `|winmgr-m|
|00000390| 6f 64 65 27 20 69 73 20 | 65 6e 74 65 72 65 64 2e |ode' is |entered.|
|000003a0| 22 20 3a 74 79 70 65 20 | 27 68 6f 6f 6b 20 3a 67 |" :type |'hook :g|
|000003b0| 72 6f 75 70 20 27 77 69 | 6e 6d 67 72 29 0a 28 63 |roup 'wi|nmgr).(c|
|000003c0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 66 61 |ustom-de|clare-fa|
|000003d0| 63 65 20 27 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6d 34 |ce 'font|-lock-m4|
|000003e0| 2d 66 61 63 65 20 27 28 | 28 28 28 63 6c 61 73 73 |-face '(|(((class|
|000003f0| 20 63 6f 6c 6f 72 29 29 | 20 28 3a 66 6f 72 65 67 | color))| (:foreg|
|00000400| 72 6f 75 6e 64 20 22 62 | 6c 75 65 22 29 29 20 28 |round "b|lue")) (|
|00000410| 74 20 28 3a 75 6e 64 65 | 72 6c 69 6e 65 20 74 29 |t (:unde|rline t)|
|00000420| 29 29 20 22 46 6f 6e 74 | 2d 6c 6f 63 6b 20 66 61 |)) "Font|-lock fa|
|00000430| 63 65 20 66 6f 72 20 4d | 34 20 6d 61 63 72 6f 73 |ce for M|4 macros|
|00000440| 2e 22 20 3a 67 72 6f 75 | 70 20 27 77 69 6e 6d 67 |." :grou|p 'winmg|
|00000450| 72 29 0a 23 40 32 39 20 | 44 65 66 61 75 6c 74 20 |r).#@29 |Default |
|00000460| 66 6f 6e 74 2d 6c 6f 63 | 6b 20 6b 65 79 77 6f 72 |font-loc|k keywor|
|00000470| 64 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 77 69 6e |ds...(de|fvar win|
|00000480| 6d 67 72 2d 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 6b 65 |mgr-font|-lock-ke|
|00000490| 79 77 6f 72 64 73 20 27 | 28 28 22 5e 5b 41 2d 5a |ywords '|(("^[A-Z|
|000004a0| 61 2d 7a 5d 2b 5b 20 5c | 6e 09 5d 22 20 2e 20 66 |a-z]+[ \|n.]" . f|
|000004b0| 6f 6e 74 2d 6c 6f 63 6b | 2d 66 75 6e 63 74 69 6f |ont-lock|-functio|
|000004c0| 6e 2d 6e 61 6d 65 2d 66 | 61 63 65 29 20 28 22 5e |n-name-f|ace) ("^|
|000004d0| 5b 41 2d 5a 61 2d 7a 5d | 2b 28 2e 2a 29 22 20 2e |[A-Za-z]|+(.*)" .|
|000004e0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 6d 34 2d 66 61 | font-lo|ck-m4-fa|
|000004f0| 63 65 29 29 20 28 23 24 | 20 2e 20 31 31 31 32 29 |ce)) (#$| . 1112)|
|00000500| 29 0a 23 40 34 35 20 41 | 62 62 72 65 76 20 74 61 |).#@45 A|bbrev ta|
|00000510| 62 6c 65 20 75 73 65 64 | 20 69 6e 20 60 77 69 6e |ble used| in `win|
|00000520| 6d 67 72 2d 6d 6f 64 65 | 27 20 62 75 66 66 65 72 |mgr-mode|' buffer|
|00000530| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 77 69 6e 6d |s...(def|var winm|
|00000540| 67 72 2d 6d 6f 64 65 2d | 61 62 62 72 65 76 2d 74 |gr-mode-|abbrev-t|
|00000550| 61 62 6c 65 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |able nil| (#$ . 1|
|00000560| 32 38 37 29 29 0a 28 64 | 65 66 69 6e 65 2d 61 62 |287)).(d|efine-ab|
|00000570| 62 72 65 76 2d 74 61 62 | 6c 65 20 27 77 69 6e 6d |brev-tab|le 'winm|
|00000580| 67 72 2d 6d 6f 64 65 2d | 61 62 62 72 65 76 2d 74 |gr-mode-|abbrev-t|
|00000590| 61 62 6c 65 20 6e 69 6c | 29 0a 23 40 34 35 20 53 |able nil|).#@45 S|
|000005a0| 79 6e 74 61 78 20 74 61 | 62 6c 65 20 75 73 65 64 |yntax ta|ble used|
|000005b0| 20 69 6e 20 60 77 69 6e | 6d 67 72 2d 6d 6f 64 65 | in `win|mgr-mode|
|000005c0| 27 20 62 75 66 66 65 72 | 73 2e 1f 0a 28 64 65 66 |' buffer|s...(def|
|000005d0| 76 61 72 20 77 69 6e 6d | 67 72 2d 6d 6f 64 65 2d |var winm|gr-mode-|
|000005e0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6e 69 6c |syntax-t|able nil|
|000005f0| 20 28 23 24 20 2e 20 31 | 34 33 39 29 29 0a 28 62 | (#$ . 1|439)).(b|
|00000600| 79 74 65 2d 63 6f 64 65 | 20 22 08 ac 8f c1 20 10 |yte-code| ".... .|
|00000610| c2 c3 c4 08 23 88 c2 c5 | c6 08 23 88 c1 87 22 20 |....#...|..#..." |
|00000620| 5b 77 69 6e 6d 67 72 2d | 6d 6f 64 65 2d 73 79 6e |[winmgr-|mode-syn|
|00000630| 74 61 78 2d 74 61 62 6c | 65 20 6d 61 6b 65 2d 73 |tax-tabl|e make-s|
|00000640| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6d 6f 64 69 |yntax-ta|ble modi|
|00000650| 66 79 2d 73 79 6e 74 61 | 78 2d 65 6e 74 72 79 20 |fy-synta|x-entry |
|00000660| 3f 5c 23 20 22 3c 22 20 | 3f 5c 6e 20 22 3e 22 5d |?\# "<" |?\n ">"]|
|00000670| 20 34 29 0a 23 40 33 39 | 20 4b 65 79 6d 61 70 20 | 4).#@39| Keymap |
|00000680| 75 73 65 64 20 69 6e 20 | 60 77 69 6e 6d 67 72 2d |used in |`winmgr-|
|00000690| 6d 6f 64 65 27 20 62 75 | 66 66 65 72 73 2e 1f 0a |mode' bu|ffers...|
|000006a0| 28 64 65 66 76 61 72 20 | 77 69 6e 6d 67 72 2d 6d |(defvar |winmgr-m|
|000006b0| 6f 64 65 2d 6d 61 70 20 | 6e 69 6c 20 28 23 24 20 |ode-map |nil (#$ |
|000006c0| 2e 20 31 36 35 37 29 29 | 0a 28 62 79 74 65 2d 63 |. 1657))|.(byte-c|
|000006d0| 6f 64 65 20 22 08 ac 83 | c1 20 10 c1 87 22 20 5b |ode "...|. ..." [|
|000006e0| 77 69 6e 6d 67 72 2d 6d | 6f 64 65 2d 6d 61 70 20 |winmgr-m|ode-map |
|000006f0| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|00000700| 61 70 5d 20 31 29 0a 23 | 40 34 35 20 4d 61 6a 6f |ap] 1).#|@45 Majo|
|00000710| 72 20 6d 6f 64 65 20 66 | 6f 72 20 65 64 69 74 69 |r mode f|or editi|
|00000720| 6e 67 20 77 69 6e 6d 67 | 72 20 63 6f 6e 66 69 67 |ng winmg|r config|
|00000730| 20 66 69 6c 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 | files..|.(defali|
|00000740| 61 73 20 27 77 69 6e 6d | 67 72 2d 6d 6f 64 65 20 |as 'winm|gr-mode |
|00000750| 23 5b 6e 69 6c 20 22 c0 | 20 88 c1 5c 6e 21 88 c3 |#[nil ".| ..\n!..|
|00000760| 14 c5 16 06 0e 07 16 08 | c9 0e 5c 6e 21 88 cb cc |........|..\n!...|
|00000770| 21 88 cb cd 21 88 cb ce | 21 88 cb cf 21 88 d0 16 |!...!...|!...!...|
|00000780| 0c d1 16 0d d2 16 0e d3 | 16 0f d4 d5 21 87 22 20 |........|....!." |
|00000790| 5b 6b 69 6c 6c 2d 61 6c | 6c 2d 6c 6f 63 61 6c 2d |[kill-al|l-local-|
|000007a0| 76 61 72 69 61 62 6c 65 | 73 20 73 65 74 2d 73 79 |variable|s set-sy|
|000007b0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 77 69 6e 6d 67 |ntax-tab|le winmg|
|000007c0| 72 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |r-mode-s|yntax-ta|
|000007d0| 62 6c 65 20 77 69 6e 6d | 67 72 2d 6d 6f 64 65 20 |ble winm|gr-mode |
|000007e0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 22 57 69 6e 6d |major-mo|de "Winm|
|000007f0| 67 72 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 77 69 |gr" mode|-name wi|
|00000800| 6e 6d 67 72 2d 6d 6f 64 | 65 2d 61 62 62 72 65 76 |nmgr-mod|e-abbrev|
|00000810| 2d 74 61 62 6c 65 20 6c | 6f 63 61 6c 2d 61 62 62 |-table l|ocal-abb|
|00000820| 72 65 76 2d 74 61 62 6c | 65 20 75 73 65 2d 6c 6f |rev-tabl|e use-lo|
|00000830| 63 61 6c 2d 6d 61 70 20 | 77 69 6e 6d 67 72 2d 6d |cal-map |winmgr-m|
|00000840| 6f 64 65 2d 6d 61 70 20 | 6d 61 6b 65 2d 6c 6f 63 |ode-map |make-loc|
|00000850| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 70 61 72 73 |al-varia|ble pars|
|00000860| 65 2d 73 65 78 70 2d 69 | 67 6e 6f 72 65 2d 63 6f |e-sexp-i|gnore-co|
|00000870| 6d 6d 65 6e 74 73 20 63 | 6f 6d 6d 65 6e 74 2d 73 |mments c|omment-s|
|00000880| 74 61 72 74 20 63 6f 6d | 6d 65 6e 74 2d 65 6e 64 |tart com|ment-end|
|00000890| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|000008a0| 63 74 69 6f 6e 20 74 20 | 22 23 20 22 20 22 22 20 |ction t |"# " "" |
|000008b0| 77 69 6e 6d 67 72 2d 69 | 6e 64 65 6e 74 2d 6c 69 |winmgr-i|ndent-li|
|000008c0| 6e 65 2d 66 75 6e 63 74 | 69 6f 6e 20 72 75 6e 2d |ne-funct|ion run-|
|000008d0| 68 6f 6f 6b 73 20 77 69 | 6e 6d 67 72 2d 6d 6f 64 |hooks wi|nmgr-mod|
|000008e0| 65 2d 68 6f 6f 6b 5d 20 | 32 20 28 23 24 20 2e 20 |e-hook] |2 (#$ . |
|000008f0| 31 38 30 34 29 20 6e 69 | 6c 5d 29 0a 23 40 38 34 |1804) ni|l]).#@84|
|00000900| 20 49 6e 64 65 6e 74 20 | 6c 69 6e 65 20 62 61 73 | Indent |line bas|
|00000910| 65 64 20 6f 6e 20 64 65 | 70 74 68 20 69 6e 20 70 |ed on de|pth in p|
|00000920| 61 72 65 6e 74 68 65 73 | 65 73 2e 0a 53 65 65 20 |arenthes|es..See |
|00000930| 74 68 65 20 76 61 72 69 | 61 62 6c 65 20 60 77 69 |the vari|able `wi|
|00000940| 6e 6d 67 72 2d 62 61 73 | 69 63 2d 6f 66 66 73 65 |nmgr-bas|ic-offse|
|00000950| 74 2e 27 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |t.'..(de|falias '|
|00000960| 77 69 6e 6d 67 72 2d 69 | 6e 64 65 6e 74 2d 6c 69 |winmgr-i|ndent-li|
|00000970| 6e 65 2d 66 75 6e 63 74 | 69 6f 6e 20 23 5b 6e 69 |ne-funct|ion #[ni|
|00000980| 6c 20 22 c0 60 19 1a c3 | c4 c5 8f 88 09 62 88 c0 |l ".`...|.....b..|
|00000990| 79 88 c6 20 88 c7 c8 5c | 6e 0e 09 5f 5c 22 2a 87 |y.. ...\|n.._\"*.|
|000009a0| 22 20 5b 30 20 68 65 72 | 65 20 64 65 70 74 68 20 |" [0 her|e depth |
|000009b0| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|000009c0| c0 c1 21 88 5c 6e 54 12 | aa 77 22 20 5b 62 61 63 |..!.\nT.|.w" [bac|
|000009d0| 6b 77 61 72 64 2d 75 70 | 2d 6c 69 73 74 20 31 20 |kward-up|-list 1 |
|000009e0| 64 65 70 74 68 5d 20 32 | 29 20 28 28 65 72 72 6f |depth] 2|) ((erro|
|000009f0| 72 29 29 20 64 65 6c 65 | 74 65 2d 68 6f 72 69 7a |r)) dele|te-horiz|
|00000a00| 6f 6e 74 61 6c 2d 73 70 | 61 63 65 20 69 6e 73 65 |ontal-sp|ace inse|
|00000a10| 72 74 2d 63 68 61 72 20 | 3f 5c 20 20 77 69 6e 6d |rt-char |?\ winm|
|00000a20| 67 72 2d 62 61 73 69 63 | 2d 6f 66 66 73 65 74 5d |gr-basic|-offset]|
|00000a30| 20 34 20 28 23 24 20 2e | 20 32 33 30 35 29 5d 29 | 4 (#$ .| 2305)])|
|00000a40| 0a 28 70 72 6f 76 69 64 | 65 20 27 77 69 6e 6d 67 |.(provid|e 'winmg|
|00000a50| 72 2d 6d 6f 64 65 29 0a | |r-mode).| |
+--------+-------------------------+-------------------------+--------+--------+